home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 & 2.0 / PrintPICT 1.3.cpt / PrintPICT 1.3 (US) / PrintPICT 1.3 (US) / card_3055.txt < prev    next >
Encoding:
Text File  |  1992-03-24  |  6.4 KB  |  263 lines
  1. -- card: 3055 from stack: in.3 (US)
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 25 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=201 top=287 right=316 bottom=343
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: PrintPICT
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   if last word of the version ‚â• 2.0
  37.   then answer file "File to print :" of type PICT
  38. else ask "Pathname of file to print :"
  39.  
  40. if it is empty then exit mouseUp
  41.  
  42. put it into FileName
  43.  
  44. answer "Page setup dialog :" with "False" or "True"
  45. put it into PageSetupDL
  46.  
  47. answer "Printing dialog :" with "False" or "True"
  48. put it into PrintDL
  49.  
  50. ask "Prompt text :"
  51. put it into Legend
  52.  
  53. ask "Resource :" with "R="
  54.  
  55. if it is empty
  56. then PrintPict FileName,PageSetupDL,PrintDL,Legend
  57. else PrintPict FileName,PageSetupDL,PrintDL,Legend,it
  58.  
  59. if the Result ‚↠empty
  60. then answer the result
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 26 (field)
  66. -- low flags: 81
  67. -- high flags: 2004
  68. -- rect: left=98 top=87 right=222 bottom=408
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: 
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   hide cd fld 3
  80.   hide cd fld 2
  81. end mouseUp
  82.  
  83.  
  84. -- part 27 (field)
  85. -- low flags: 81
  86. -- high flags: 0000
  87. -- rect: left=179 top=107 right=207 bottom=381
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 10
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   hide cd fld 3
  99.   hide cd fld 2
  100. end mouseUp
  101.  
  102.  
  103. -- part 28 (field)
  104. -- low flags: 81
  105. -- high flags: 6004
  106. -- rect: left=166 top=121 right=202 bottom=338
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 10
  112. -- style flags: 256
  113. -- line height: 13
  114. -- part name: 
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   hide cd fld 4
  118.   hide cd fld 5
  119. end mouseUp
  120.  
  121.  
  122. -- part 29 (field)
  123. -- low flags: 81
  124. -- high flags: 0000
  125. -- rect: left=236 top=151 right=194 bottom=331
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 3
  130. -- text size: 10
  131. -- style flags: 0
  132. -- line height: 13
  133. -- part name: 
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   hide cd fld 4
  137.   hide cd fld 5
  138. end mouseUp
  139.  
  140.  
  141. -- part contents for card part 1
  142. ----- text -----
  143.  
  144.  
  145.                                                PrintPICT 1.3
  146.  
  147.                                           by Fr√©d√©ric RINALDI
  148.  
  149.  
  150. DESCRIPTION
  151. ------------
  152.    PrintPICT prints a PICT file, resource or the clipboard content with a prompt if desired.
  153.  
  154.  
  155. SYNTAX
  156. -------
  157.           PrintPICT <filename|"clipboard"|"*">[,<R=res name or ID>]
  158.                          [,<page setup dialog>][,<print dialog>][<prompt>]
  159.  
  160.  
  161. PARAMETERS
  162. ------------
  163.    <filename|"clipboard"|"*"> telles where the picture is coming from.
  164.    Being a filename, it can be a single name or whole pathname. If just a single name is supplied, the file is assumed to be in the same folder than the current stack.
  165.    "clipboard" will print the clipboard content.
  166.    "*" stands for the current stack, when PICT resource printing is required.
  167.  
  168.    <R=res name or ID> defines the PICT resource to print. It can be its name or ID. This param is ignored when first is "clipboard".
  169.  
  170.    <page setup dialog> is a boolean allowing to have to page setup dialog to pop up. Default is FALSE.
  171.  
  172.    <print dialog>  is a boolean allowing to have to printing dialog to pop up. Default is FALSE.
  173.  
  174.    <prompt> is a prompt string which will be printed at the bottom of page using Helvetica 12.
  175.  
  176.    Using "!", "?" and "=" as first parameter will return an online help (resp. copyright,  syntax and output).
  177.  
  178.  
  179. USING
  180. -----
  181.    Without dialog, the XCMD uses the previous settings for printing.
  182.    Printing is centered in page.
  183.  
  184.  
  185. ERRORS
  186. -------
  187. If an error occurs, PrintPICT can return :
  188.      "Error : Printing Error"
  189.      "Error : Found no PICT in clipBoard"
  190.      "Error : Resource not found"
  191.      "Error : Not a PICT file"
  192.      "Error : Out of memory"
  193.      "Error : Couldn't read PICT file"
  194.      "Error : Missing or empty parameter"
  195.      "Error : Couln't load Scrap"
  196.      "Error : Missing resource identifier"
  197.      "Error : Out of memory"
  198.      "Error : Printing aborted"
  199.      "Error : Not a file"
  200.      "Error : Alias file not supported"
  201.      "Error : Volume not found"
  202.      "Error : Bad Name"
  203.      "Error : File not found"
  204.      "Error : Folder not found"
  205.      "Error : File is busy"
  206.      "Error : I/O Error"
  207.  
  208.  
  209. HISTORY
  210. --------
  211. 1.3 :                                                                                          03/24/92
  212. ‚Ä¢ Pict resizing now keeps proportions
  213.  
  214. 1.2 :                                                                                          03/09/92
  215. ‚Ä¢ Pict resized to fit in the printed page
  216.  
  217. 1.1 :                                                                                          12/26/91
  218. ‚Ä¢ Fixed alias file bug under System 7.0.1
  219. ‚Ä¢ Printing is centered in page
  220. ‚Ä¢ Added prompt text printing
  221. ‚Ä¢ Added PICt resource and clipboard printing
  222.  
  223. 1.0                                                                                            10/28/91
  224. ‚Ä¢ First release
  225. --------------------------------------------------------------------
  226. This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
  227. Any commercial use must be licensed and aknowledged by the author.
  228.  
  229.                                  ¬© Frederic RINALDI 1991,1992
  230.  
  231. AppleLink: RINALDI1        Calvacom : FR10        Compuserve : 71170,2111
  232.  
  233. -- part contents for card part 26
  234. ----- text -----
  235.  
  236. CPU
  237. System
  238. Processor
  239. FPU
  240. ColoQD
  241. Keyboard
  242.  
  243. -- part contents for card part 27
  244. ----- text -----
  245. Macintosh IIx
  246. 6.4
  247. MC68030
  248. true
  249. true
  250. Apple Extended keyboard
  251.  
  252. -- part contents for card part 28
  253. ----- text -----
  254.              Owner Group  All
  255.  
  256. See Folder
  257. See Files
  258. Modify
  259.  
  260.  
  261. -- part contents for card part 29
  262. ----- text -----
  263. Error : Not an AppleShare Volume